library dculib;

uses
  Classes,
  SysUtils,
  Windows,
  dcudeps;

var
  SourcesStr, DepsStr: string;

function GetDeps(const Name: PChar; var Sources, Deps: PChar): BOOL; stdcall;
var
  SourcesList, 
  DepsList: TStringList;
begin
  SourcesList := TStringList.Create;
  DepsList := TStringList.Create;
  try
    Result := dcudeps.GetDeps(Name, SourcesList, DepsList);
    SourcesStr := SourcesList.Text;
    DepsStr := DepsList.Text;
  finally    
    SourcesList.Free;
    DepsList.Free;
  end;
  Sources := PChar(SourcesStr);
  Deps := PChar(DepsStr);
end;

exports
  GetDeps;

begin  
end.